Commodore Disc 13/Commodore_Disc_13_19xx_-_de.d64/the red planet

Commodore BASIC | 1990-01-01 | 19.5 KB | 549 lines

1 goto100
10 ************************************
20 ********** the red planet **********
30 ************************************
40 * copyright 1986 by dillingersoft **
50 ************************************
60 ************************************
70 *** written by robert dillinger ****
80 ************************************
85 ************************************
90 ************** loader **************
95 ************************************
100 poke53280,0:poke53281,0:print"[147][155]        willkommen zum loader von"
110 print"              the red planet":print
115 print"[154]    geschrieben von robert dillinger"
117 print"    copyright 1986 by dillingersoft"
120 print"      benuetzt du d[146]isk oder t[146]ape ?"
130 geta$:ifa$="d"thengoto200
140 ifa$="t"thengoto300
150 goto130
200 poke53247,8:print"                  disk"
205 print" schalte bitte die floppy nicht ab und"
210 print"lasse die diskette im laufwerk stecken ."
220 print:print"nachdem der hauptteil nachgeladen wurde,";
230 print" kannst du die diskette dann entfernen"
240 print"      und die floppy ausschalten ."
250 goto500
300 poke53247,1:print"                  tape"
310 print"am besten du laesst die 'play'-taste am"
320 print"recorder gleich an,denn dann brauchst du";
330 print" sie nach dem einlesen der daten nicht"
340 print"mehr zu betaetigen und es wird nach dem"
345 print"   einlesen automatisch nachgeladen ."
350 print" dieses vorgehen ist zu empfehlen, denn"
360 print" die zeit fuer's einlesen und nachladen"
370 print"    von tape ist ca 12 min. 50 sec."
380 print"du kannst ja dann ,anstatt vor dem bild-";
390 print"  zu warten, etwas anderes erledigen."
500 print"[153]           druecke eine taste[146]";
510 geta$:ifa$<>""thengoto600
520 goto510
600 print"[147]   brauchst du die anleitung (j[146]/n[146]) ?"
605 forf=1to100:nextf:poke198,0
610 geta$:ifa$="j"thengoto10000
620 ifa$="n"thengoto1000
630 goto610
900 stop
1000 rem ******************************
1010 rem ******* vic auf 3.block ******
1020 rem ******************************
1100 print"[147][144]":poke56576,149
1110 poke648,132
1200 rem ******************************
1210 rem ****** basic ende setzen *****
1220 rem ******************************
1230 poke55,0:poke56,127:clr
1300 rem ******************************
1310 rem **** zeichensatz auslesen ****
1320 rem ******************************
1321 sid=54272:n$="             den zeichensatz             "
1322 m$="              aus/neu ein":n$=n$+m$:pause=10:gosub19000
1323 a$="   wie du wahrscheinlich schon bemerkt"
1324 hoehe=10:pause=1:gosub19500
1325 a$="       hast, kann das noch dauern.":gosub19500
1326 print"":a$=" deshalb: abwarten und tee trinken ....":gosub19500:print
1327 a$="  dafuer gibt's beim hauptprogramm dann"
1328 gosub19500:print
1329 a$=" keine wartezeiten fuer's einlesen oder"
1330 gosub19500:print
1331 a$="         sonstige kinkerlitzchen."
1332 gosub19500
1335 poke56334,peek(56334)and254
1340 poke1,peek(1)and251
1350 forf=0to4095
1360 poke32768+2048+f,peek(f+53248)
1370 nextf
1380 poke1,peek(1)or4
1390 poke56334,peek(56334)or1
1400 poke53272,(peek(53272)and240)or2
1500 rem ******************************
1510 rem ****** zeichen einlesen ******
1520 rem ******************************
1530 restore:an=32768+2048+129*8
1540 forf=antoan+24*8-1
1550 readby:pokef,by:next
1560 an=32768+2048+109*8
1570 forf=antoan+12*8-1
1580 readby:pokef,by:next
1600 rem ******************************
1610 rem ****** sprites einlesen ******
1620 rem ******************************
1630 rem ******************************
1640 rem ***** einfarbige sprites *****
1650 rem ******************************
1660 n$="                 sprites                "
1670 m$="                   ein":n$=n$+m$
1680 pause=1:gosub19000
1690 a$="            the red planet :"
1700 hoehe=10:pause=1:gosub19500:print""
1710 a$="   ein actionspiel marke dillingersoft":gosub19500
1715 print
1725 print""
1730 a$="  unter staendiger qualitaetskontrolle":gosub19500
1735 print
1740 a$="           des programmierers .":gosub19500
1750 forf=32768+4096+4096to32768+4096+4096+10*64-1
1760 readby:pokef,by:next
1800 rem ******************************
1810 rem ***** multicolor sprites *****
1820 rem ******************************
1900 forf=32768+8192+640to32768+8192+640+8*64-1
1910 readby:pokef,by:next
2000 rem ******************************
2010 rem **** zusaetzliche sprites ****
2020 rem ******************************
2030 forf=32768+8192+640+8*64to32768+8192+640+8*64+14*64-1
2040 readby:pokef,by:next
2100 rem ******************************
2110 rem *** maschinenteil einlesen ***
2120 rem ******************************
2200 n$="              maschinencode             "
2210 n$=n$+m$
2220 gosub19000
2230 a$="              uebrigens :"
2240 hoehe=10:pause=1:gosub19500
2250 print:print:a$="             der autor ist"
2260 gosub19500:print:print
2270 a$="            robert dillinger"
2280 gosub19500:print
2290 a$="            von dillingersoft"
2300 gosub19500:print:print
2310 a$="dillingersoft programmiert auch auf dem"
2320 gosub19500:print
2330 a$="commodore c-16,atari 800xl und spektrum"
2340 gosub19500
2400 forf=49152to50333:readby:pokef,by:next
5000 rem ******************************
5010 rem ********* nachladen **********
5020 rem ******************************
5030 print"[147][144]";fre(0)
5040 print"[155]   ich lade jetzt den hauptteil nach."
5050 print"[158]ladezeit von ";
5060 ifpeek(53247)=8thenprint"disk : ca. 01 min. 15 sec.":goto5300
5070 ifpeek(53247)=1thenprint"tape : ca. 09 min. 30 sec."
5090 print"[159]                         bis dann,"
5100 print"                                  servus"
5110 print:forf=1to3500:nextf:goto5500
5300 print"[144]new:"
5310 print"load";chr$(34);"red planet main";chr$(34);",8"
5320 print"run:"
5330 print"[145][145][145][145][145][145][145][145][145][145][145][145][145]"
5340 poke198,0:poke632,13:poke633,13:poke634,13:poke631,13
5350 poke198,4:stop
5500 print"[144][145]new:"
5510 print"load:"
5520 print"[145][145][145][145][145][145][145][145]":
5525 forf=56255to56294:pokef,1:nextf
5530 poke631,13:poke632,13:poke633,82:poke634,85:poke635,78:poke636,58
5540 poke637,13:poke638,3:poke198,8
5900 end
10000 rem *****************************
10010 rem ********* anleitung *********
10020 rem *****************************
10025 gosub10030:goto10060
10030 print"[147][150]             the red planet"
10040 print"             [184][184][184][184][184][184][184][184][184][184][184][184][184][184]"
10050 print:print"[159]               anleitung":return
10060 print"  deine freundin befindet sich auf dem"
10070 print"roten planeten und weiss nicht, wie sie"
10080 print"  wieder heimkommen soll, denn sie hat"
10090 print"kein geld mehr, um ein space-taxi zu be-";
10100 print"                stellen."
10110 print"  natuerlich hast du davon erfahren und"
10120 print"         wirst sie heimfliegen."
10130 print"   leider musst du dabei durch mehrere"
10140 print"   fremde territorien hindurchfliegen."
10150 print"die wesen,denen diese galaxien gehoeren,";
10160 print"  beginnen sofort zu schiessen, und es"
10170 print"kommt zu einem kampf auf leben und tod."
10180 print" hast du genuegend wesen erwischt, be-"
10190 print"    kommt der rest angst und flieht."
10195 gosub10500:gosub10030
10200 print"    dann kannst du weiterfliegen und"
10210 print"naeherst dich dem roten planeten wieder";
10220 print" um ein stueck, was du daran erkennst,"
10230 print"         dass er groesser wird."
10240 print"nach mehreren runden landest du auf dem"
10250 print"roten planeten und kannst deine freundin";
10260 print"           endlich mitnehmen."
10270 print"im hauptteil, der noch nachgeladen wird,";
10280 print" befindet sich noch eine informations-"
10290 print"  seite zur steuerung und punktegebung."
10300 print"  viel spass beim spiel,"
10310 print"                        robert dillinger";
10490 gosub10500:goto1000
10500 print"[153]                fertig ?[146]";
10510 poke198,0
10520 geta$:ifa$<>""thenreturn
10530 goto10520
10900 stop
19000 rem *****************************
19010 rem ****** 'warten' meldung *****
19020 rem *****************************
19090 poke53280,0:poke53281,0:print"[147]"
19110 a$="   du musst jetzt ein bisschen warten   "
19115 hoehe=50:gosub19500
19120 a$="             ich lese gerade"
19125 gosub19500
19130 a$=n$:gosub19500
19200 a$="[154] gesamteinlesezeit: ca. 03 min. 20 sec."
19210 hoehe=30:gosub19500
19300 return
19500 rem ******* druckroutine ********
19510 forf=1tolen(a$):printleft$(a$,f);:print"[145]":gosub19600
19520 nextf:return
19600 rem **** ton zu druckroutine ****
19610 pokesid+4,32:forg=1topause:nextg:pokesid+1,hoehe:pokesid+5,3+5*16:
19620 pokesid+6,2+1:pokesid+24,15:pokesid+4,33
19690 return
20000 rem *****************************
20010 rem *********** datas ***********
20020 rem *****************************
20030 rem *****************************
20040 rem ******** zeichensatz ********
20050 rem *****************************
21000 data0,24,60,102,102,60,24,0
21010 data0,24,60,126,127,60,24,0
21020 data0,0,48,48,0,24,24,0
21030 data0,12,12,0,0,0,0,0
21040 data0,0,0,0,0,0,24,24
21050 data0,0,0,48,0,0,0,0
21060 data0,0,4,4,0,0,0,0
21070 data0,0,194,0,0,0,0,0
21080 data0,32,0,0,0,0,4,0
21090 data0,0,0,16,0,0,0,0
21100 data1,3,31,63,63,63,127,255
21110 data128,192,224,248,252,252,254,254
21120 data127,63,63,63,31,15,3,0
21130 data254,251,252,252,248,192,128,0
21140 data0,0,0,0,3,7,15,15
21150 data0,0,24,255,255,255,223,255
21160 data0,0,0,128,192,224,240,240
21170 data15,15,31,63,63,29,31,31
21180 data255,251,255,223,255,255,255,255
21190 data240,248,248,252,252,248,248,248
21200 data31,15,15,7,1,0,0,0
21210 data255,255,255,255,255,24,0,0
21220 data248,240,240,192,0,0,0,0
21230 data60,66,157,161,161,157,66,60
21500 data0,0,0,1,3,3,15,31
21510 data3,31,127,255,255,255,255,255
21520 data192,240,252,254,255,255,255,255
21530 data0,0,0,0,128,192,240,240
21540 data31,31,31,31,63,127,255,255
21550 data248,252,252,254,254,255,255,255
21560 data255,255,255,255,255,255,63,63
21570 data255,255,255,255,254,254,252,248
21580 data31,15,15,3,1,0,0,0
21590 data255,255,255,255,255,127,15,7
21600 data255,255,255,255,255,254,248,224
21610 data240,176,128,128,0,0,0,0
22000 rem *****************************
22010 rem ********** sprites **********
22020 rem *****************************
22030 rem *****************************
22040 rem ***** einfarbige sprites ****
22050 rem *****************************
23000 data0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,24,0
23010 data0,24,0,0,60,0,0,60
23015 data0,32,60,4,48,126
23020 data12,48,126,12,48,126,12,48,126,12,62
23030 data126,124,63,255,252,63,255,252,62,126
23040 data124,56,126,28,48,126,12,32,0,4,99,0
23050 data0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,24,0,0
23060 data24,0,0,60,0,0,60
23065 data0,8,60,16,12,126,48
23070 data12,126,48,12,126,48,14,126,112,14,126
23080 data112,14,126,112,15,255,240,15,255,240
23090 data14,126,112,12
23095 data126,48,8,0,16,99,0,0,0
23100 data0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
23110 data0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
23120 data0,0,0,0,24,0,0,24,0,0,24,0,0,24,0,0
23130 data24,0,0,24,0,0,24
23135 data0,99,0,0,0,0,0,0,0
23140 data0,0,0,0,0,0,0,0,96,0,6,96,0,6,96,0,6
23150 data99,0,198,99,0,198,99,0,198,99,0,198
23160 data99,24,198,99,24
23165 data198,3,24,192,3,24,192
23170 data3,24,192,0,24,0,0,24,0,0,24,0,0,24,0
23180 data99,192,0,3,192,0
23185 data3,192,0,3,192,0,3,192
23190 data0,3,192,0,3,192,0,3,192,0,3,192,0,3
23200 data0,0,0,0,0,0,0,0,0,192,0,3,192,0,3,192
23210 data0,3,192,0,3,192,0,3,192,0,3,192,0,3
23220 data192,0,3,192,0,3,99,0,0,0,0,0,0,0,0,0
23230 data0,0,0,0,0,0,0,0,0,0,0,0,248,0,31,199
23240 data224,32,64,128
23245 data225,98,182,129,102,199
23250 data134,114,64,140,10,97,132,58,19,68,12
23260 data18,28,24,0,31,17,168,3,53,126,66,62
23270 data193,59,252,17,207,99,0,0,0,0,0,0,0,0
23280 data0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
23290 data0,0,0,0,0,32,0,0,68,0,25,144,108,15
23300 data100,88,85,166,164,32
23305 data4,56,36,180,134
23310 data5,162,191,32,173,166,79,212,217,195
23320 data2,26,99,0,0,0,0,0,0,0,0,0,0,0,0,0,0
23330 data0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
23340 data0,0,0,0,0,0,0,0,0,0,0,0,0,0,112,0,3
23350 data250,0,7,255,128
23355 data31,255,240,127,255,252
23360 data255,255,255,99,0,0,0,0,0,0,0,0,0,0,0
23370 data0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
23380 data0,0,0,0,1,240,0,1,8,0,1,4,0,49,2,0,123
23390 data1,1,255,255,130,187,187,252,68,68,254
23400 data170,170,2,68,68
23405 data3,99,0,0,0,0,0,0,0,0
23410 data0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
23420 data0,0,0,0,8,129,16,7,0,224,2,0,64,7,0
23430 data224,7,0,224,15,129,240,15,129,240,15
23440 data129,240,7,0,224,7,0,224,2,0,64,99
24000 rem *****************************
24010 rem **** multicolor sprites *****
24020 rem *****************************
25000 data0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
25010 data0,0,0,0,0,0,2,130,128,2,65,128,2,0,128
25020 data3,255,192,47,255
25025 data248,143,255,242,15
25030 data85,240,13,0,112,15,85,240,3,255,192
25040 data1,0,64,4,0,16,20,0,20,99,0,0,0,0,0,0
25050 data0,0,0,0,0,0,32,0,8,8,0,32,2,0,128,2
25060 data0,128,2,0,128,2,0
25065 data128,2,130,128,1,85
25070 data64,7,215,208,21,85,84,21,85,84,21,170
25080 data84,5,85,80,1,85,64,3,0,192,60,0,60,192
25090 data0,3,99,0,0,0,2,130,128
25095 data2,0,128,2,0,128
25100 data3,255,192,3,60,192,0,255,0,0,195,0,0
25110 data60,0,0,60,0,0,170,0,5,170,80,6,170,144
25120 data2,170,128,2,170,128,0
25125 data170,0,0,170,0
25130 data0,65,0,0,65,0,0,65,0,1,65,64,99,0,0
25140 data0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
25150 data0,0,0,0,21,85,80
25155 data16,0,16,16,0,16,19
25160 data255,16,19,3,16,19,35,16,19,3,16,19,255
25170 data16,16,0,16,16,0,16
25175 data21,85,80,0,0,0,0
25180 data0,0,99,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
25190 data0,0,0,0,0,0,0,0,0,0,0,0,0,40,0,0,130
25200 data0,2,60,128,8,195
25205 data32,35,20,200,140,65
25210 data50,35,20,200,8,195,32,2,60,128,0,130
25220 data0,0,40,0,0,0,0,99,0,0,0,0,0,0,0,0,0
25230 data0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,128
25240 data0,0,0,0,0
25245 data16,64,16,8,12,2,0,0,0,3,0
25250 data0,128,0,16,0,0,0,0,128,12,16,0,0,0,0
25260 data0,0,0,0,0,0,99,5,0,80,1,0,64,1,0,64
25270 data0,65,0,0,65,0,0,65
25275 data0,3,195,192,14,190
25280 data176,14,190,176,14,190,176,15,255,240
25290 data3,255,192,3,0,192,3,255,192,0,255,0
25300 data0,65,0,0,65,0,0
25305 data65,0,1,0,64,1,0,64,5
25310 data0,80,99,15,0,48,3,0,192,0,0,192,0,192
25320 data0,0,195,0,0,195,0,0,0,0,0,128,128,0
25330 data130,0,0,0,64,0,65
25335 data0,1,0,64,1,17,0,0
25340 data69,0,0,0,0,0,195,0,0,192,0,0,3,0,3,0
25350 data192,3,0,0,12,0,240,99
26000 rem *****************************
26010 rem ****** nochmal sprites ******
26020 rem *****************************
26030 rem * (multicolor und normale ) *
26040 rem *****************************
27000 data0,90,0,0,36,0,0,90,0,0,165,0,0,102,0,1,24,128,0,165
27010 data0,2,90,64,2,129,64,4,36,32,2,66,64,8,0,16,1,0,128,0
27020 data66,0,16,0,8,0,0,0,0,16,0,32,0,4,0,0,0,0,0,0,0,0,0,99
27030 data0,126,0,0,165,0,1,36,128,0,66,0,2,129,64,4,36,32,1
27040 data36,128,2,0,64,0,66,0,8,129,16,16,0,8,1,0,128,0,0,0
27050 data0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,99
27060 data2,0,64,0,0,0,2,0,64,1,0,128,1,66,128,0,66,0,4,66,32
27070 data2,66,64,2,0,64,2,0,64,0,0,0,1,24,128,0,153,0,0,153
27080 data0,8,0,16,4,0,32,4,36,32,0,36,0,2,36,64,2,36,64,1,36
27090 data128,99,0,0,0,249,197,60,130,42,160,187,234,188,138
27100 data40,160,250,40,188,0,0,0,0,0,0,250,47,188,138,40,36
27110 data138,47,188,137,72,40,248,143,164,0,0,0,0,0,0,0,0,0
27120 data0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,99
27130 data0,0,0,0,0,0,0,0
27140 data0,0,0,0,0,0,0,0
27150 data0,0,0,0,0,0,40,0
27160 data0,170,0,10,170,160
27170 data42,170,168,41,105
27180 data104,41,105,104,11
27190 data235,224,58,170,172
27200 data194,170,131,194
27210 data40,131,195,170,195
27220 data12,170,48,12,40
27230 data48,0,40,0,99,0,0
27240 data0,0,0,0,0,0,0,0
27250 data0,0,0,0,0,0,0,0
27260 data0,0,0,0,0,0,0,0
27270 data0,0,0,0,9,1,0,0
27280 data79,8,0,0,0,8,128
27290 data128,0,2,0,192,0
27300 data0,194,32,128,0,0
27310 data3,12,130,48,0,0
27320 data0,0,8,0,99
27330 data0,0,0,0,0,0,8,0,16,0,0,0,0,0,0,4,0,32,0,0,0,0,0,0,33,0,132
27340 data16,0,8,8,0,16,4,129,32,2,129,64,4,66,32,8,66,16,16,66,8
27350 data32,90,4,0,153,0,0,153,0,0,24,0,0,24,0,99
27500 data0,216,0,3,254,0,2,2,0
27510 data6,3,0,2,2,0,2,2,0,6,3
27520 data0,0,0,0,0,0,0,0,0,0,0
27530 data0,0,0,0,0,0,0,0,0,0,0
27540 data0,0,0,0,0,0,0,0,0,0,0
27550 data0,0,0,0,0,136,0,1,140
27560 data0,99,0,0,0,0,0,0,0,248
27570 data0,0,168,0,0,248,0,0,136
27580 data0,0,248,0,0,32,0,0,0
27590 data0,0,0,0,0,0,0,0,0,0,48
27600 data0,96,0,0,0,0,0,0,0,0
27610 data0,0,0,0,0,0,0,0,0,0,0
27620 data0,0,0,0,0,99,0,0,0,0
27630 data0,0,0,0,0,0,0,0,0,0,0
27640 data0,0,0,0,0,0,0,0,0,1,252
27650 data0,3,254,0,7,39,0,13,37
27660 data128,1,252,0,0,248,0,0
27670 data112,0,0,248,0,1,252,0
27680 data3,254,0,7,255,0,0,0,0
27690 data0,0,0,99,2,144,0,7,248
27700 data0,2,12,0,0,8,0,0,8,0
27710 data0,12,0,0,8,0,0,0,0,0
27720 data0,0,0,0,0,0,0,0,0,0,0
27730 data0,0,0,0,0,0,0,0,0,0,0
27740 data0,0,160,0,0,160,0,0,160
27750 data0,0,160,0,1,224,0,99
27760 data0,144,0,1,248,0,1,12
27770 data0,0,8,0,0,8,0,0,8,0,0
27780 data12,0,0,8,0,0,0,0,0,0
27790 data0,0,0,0,0,0,0,0,0,0,0
27800 data0,0,0,0,0,0,0,0,0,80
27810 data0,0,80,0,0,80,0,0,80
27820 data0,0,240,0,99,0,0,0,0
27830 data0,0,0,240,0,0,176,0,0
27840 data240,0,1,240,0,0,208,0
27850 data0,16,0,0,240,0,0,32,0
27860 data0,0,0,12,0,0,0,0,0,0
27870 data0,0,0,0,0,0,0,0,0,0,0
27880 data0,0,0,0,0,0,0,0,0,0,0
27890 data0,99,0,0,0,0,0,0,0,0
27900 data0,0,0,0,0,0,0,0,0,0,0
27910 data0,0,0,0,0,0,0,0,0,0,0
27920 data0,240,0,0,240,0,6,240
27930 data0,3,240,0,0,240,0,0,240
27940 data0,0,0,0,0,0,0,0,0,0,0
27950 data0,0,0,0,0,99
30000 rem *****************************
30010 rem *** maschinencode - datas ***
30020 rem *****************************
31000 data76,49,192,0,255,0,0,0,0,255,230,24,24,255,255
31010 data255,255,255,0,0,255,255,0,255,0,255,0,255,255
31020 data255,255,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,169
31030 data50,141,1,208,169,100,141,3,208,169,150,141,5,208
31040 data169,128,141,0,208,141,2,208,141,4,208,169,127
31050 data141,21,208,169,210,141,13,208,169,128,141,12,208
31060 data169,0,141,30,208,141,27,192,173,24,192,24,105
31070 data1,205,25,192,240,6,141,24,192,76,35,193,169,0
31080 data141,24,192,174,26,192,32,244,195,32,151,192,174
31090 data26,192,224,2,240,7,232,142,26,192,76,35,193,162
31100 data0,142,26,192,76,35,193,173,43,192,74,74,74,74
31110 data74,74,201,0,240,12,197,1,240,67,201,2,240,30,201
31120 data3,240,85,32,228,192,189,0,208,205,10,192,240,7
31130 data24,105,1,157,0,208,96,169,24,157,0,208,76,193
31140 data192,32,228,192,189,0,208,205,11,192,240,7,56,233
31150 data1,157,0,208,96,169,255,157,0,208,76,219,192,138
31160 data10,24,105,1,170,96,32,31,193,189,0,208,205,13
31170 data192,240,7,24,105,1,157,0,208,96,169,0,157,0,208
31180 data76,252,192,32,31,193,189,0,208,205,12,192,240
31190 data7,56,233,1,157,0,208,96,169,255,157,0,208,76,22
31200 data193,138,10,170,96,173,18,192,205,17,192,240,9
31210 data24,105,1,141,18,192,76,198,193,169,0,141,18,192
31220 data160,0,140,16,192,185,5,192,201,1,240,16,208,62
31230 data172,16,192,200,140,16,192,192,3,240,116,76,62
31240 data193,173,8,192,205,9,192,240,9,24,105,1,141,8,192
31250 data76,71,193,152,170,10,105,1,168,185,6,208,205,14
31260 data192,240,9,24,105,1,153,6,208,76,71,193,169,0,157
31270 data5,192,76,71,193,173,43,192,174,15,192,202,74,224
31280 data0,240,3,76,139,193,201,0,240,3,76,71,193,32,116
31290 data196,172,16,192,169,1,153,5,192,152,10,168,185
31300 data0,208,153,6,208,172,16,192,152,10,24,105,1,168
31310 data185,0,208,24,105,21,176,135,153,6,208,76,71,193
31320 data173,19,192,205,20,192,240,9,24,105,1,141,19,192
31330 data76,76,194,169,0,141,19,192,173,0,220,73,255,41
31340 data4,201,4,240,25,173,0,220,73,255,41,8,201,8,240
31350 data33,173,0,220,73,255,41,16,201,16,240,41,76,76
31360 data194,173,12,208,201,24,240,235,32,103,194,56,233
31370 data1,141,12,208,76,242,193,173,12,208,201,255,240
31380 data216,32,103,194,24,105,1,141,12,208,76,242,193
31390 data173,14,208,201,0,208,31,240,0,173,21,208,9,128
31400 data141,21,208,32,21,195,173,12,208,141,14,208,173
31410 data13,208,56,233,21,141,15,208,76,76,194,165,203
31420 data201,4,240,9,165,203,201,3,240,9,76,139,194,169
31430 data1,141,21,192,96,169,2,141,21,192,96,174,31,192
31440 data236,32,192,240,4,238,31,192,96,162,0,142,31,192
31450 data174,254,135,224,128,240,6,162,128,142,254,135
31460 data96,162,129,142,254,135,96,173,22,192,205,23,192
31470 data240,9,24,105,1,141,22,192,76,185,194,169,0,141
31480 data22,192,173,15,208,201,0,240,9,56,233,1,141,15
31490 data208,76,185,194,169,0,141,14,208,76,185,194,173
31500 data30,208,141,27,192,41,64,208,10,173,27,192,41,128
31510 data208,10,76,128,195,234,169,3,141,21,192,96,173
31520 data27,192,41,7,208,3,76,128,195,173,27,192,41,7,74
31530 data170,189,248,135,205,38,192,240,3,76,98,192,32
31540 data52,195,32,83,195,173,21,208,41,127,141,21,208
31550 data169,0,141,14,208,173,27,192,41,7,74,170,169,1
31560 data157,33,192,238,36,192,76,98,192,169,32,141,4,212
31570 data169,10,141,1,212,169,38,141,5,212,169,0,141,6
31580 data212,169,15,141,24,212,169,33,141,4,212,96,169
31590 data16,141,11,212,169,7,141,8,212,169,106,141,12,212
31600 data169,15,141,13,212,169,15,141,24,212,169,17,141
31610 data11,212,96,173,28,192,24,109,30,192,176,7,141,28
31620 data192,32,110,195,96,238,29,192,141,28,192,24,32
31630 data110,195,96,162,4,160,33,24,32,240,255,173,29,192
31640 data174,28,192,32,205,189,96,162,0,189,33,192,201
31650 data1,240,8,232,224,3,240,99,76,130,195,189,46,192
31660 data205,42,192,240,41,173,37,192,157,248,135,234,189
31670 data39,192,24,105,1,157,39,192,201,255,240,4,234,76
31680 data137,195,189,46,192,24,105,1,157,46,192,205,42
31690 data192,240,3,76,130,195,173,38,192,157,248,135,169
31700 data0,157,33,192,157,46,192,157,39,192,32,244,195
31710 data138,10,168,173,43,192,153,0,208,32,244,195,138
31720 data10,24,105,1,168,173,43,192,153,0,208,76,137,195
31730 data76,99,196,172,44,192,173,0,216,233,50,24,192,1
31740 data240,74,173,0,216,109,16,216,24,13,3,216,45,7,216
31750 data9,43,192,2,240,55,173,53,216,45,32,216,77,48,216
31760 data9,64,192,3,240,40,173,7,216,77,39,216,9,64,13
31770 data0,216,192,4,240,25,173,32,216,74,74,74,74,74,74
31780 data201,1,240,16,201,0,240,17,201,2,240,18,201,3,240
31790 data19,141,43,192,96,160,1,76,247,195,160,2,76,1,196
31800 data160,3,76,20,196,160,4,76,35,196,173,36,192,205
31810 data45,192,16,3,76,98,192,169,4,141,21,192,96,169
31820 data64,141,18,212,169,3,141,15,212,169,170,141,14
31830 data212,169,106,141,19,212,169,6,141,20,212,169,100
31840 data141,17,212,169,15,141,24,212,169,65,141,18,212
31850 data96,255